BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Me-Mz/MegaHome™ II 3.03.cpt/MegaHome™ II 3.03/Home/background_2757.xml

Extensible Markup Language | 1992-02-21 | 32KB | 622 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2757</id>
    <filler1>0</filler1>
    <bitmap>BMAP_2087.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_7199.css" />
    <part>
        <id>88</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>30</left>
            <top>24</top>
            <right>508</right>
            <bottom>323</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>deselect (i)</name>
        <script>on mouseUpdoADeselectend mouseUp</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>7</left>
            <top>312</top>
            <right>58</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Coords</name>
        <script>on mouseUpif not trapDoubleClick(the rect of me) then exit mouseUpif the shiftKey is down then hide me else coordinatorend mouseUpon mouseStillDowndragTargetend mouseStillDown</script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>292</left>
            <top>325</top>
            <right>318</right>
            <bottom>337</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Page</name>
        <script></script>
    </part>
    <part>
        <id>19</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>316</left>
            <top>321</top>
            <right>339</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1832</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>on mouseUpvisual wipe leftgo next cd in this bgend mouseUp</script>
    </part>
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>439</left>
            <top>324</top>
            <right>510</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Clock</name>
        <script>on mouseUpif not trapDoubleClick(the rect of me) then exit mouseUpif the shiftKey is "down" then hide meelseput the date into mewait 1 secend ifend mouseUpon mouseStillDowndragTargetend mouseStillDown</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>202</left>
            <top>321</top>
            <right>225</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26402</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>on mouseUpvisual wipe rightgo prev card in this bgend mouseUp</script>
    </part>
    <part>
        <id>44</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>343</left>
            <top>325</top>
            <right>392</right>
            <bottom>340</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Open App</name>
        <script>on mouseUpdoMenu "Open Application…"end mouseUp</script>
    </part>
    <part>
        <id>83</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>143</left>
            <top>325</top>
            <right>198</right>
            <bottom>340</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Open Stack</name>
        <script>on mouseUpdoMenu "Open Stack..."end mouseUp</script>
    </part>
    <part>
        <id>92</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>227</left>
            <top>325</top>
            <right>304</right>
            <bottom>337</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>kard</name>
        <script></script>
    </part>
    <part>
        <id>93</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>488</left>
            <top>39</top>
            <right>505</right>
            <bottom>53</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Search Paths</name>
        <script>on mouseUpgo to card "stacks"end mouseUp</script>
    </part>
    <part>
        <id>98</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>3</left>
            <top>24</top>
            <right>31</right>
            <bottom>323</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>clean</name>
        <script>on mouseUpif trapDoubleClick(the rect of me) is false then doADeselectelseif fld "page" is 1 thenset the rect of cd fld "axis" to 7,22,63,50show cd fld "axis"end ifdoACleanUpend ifend mouseUp</script>
    </part>
    <part>
        <id>95</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>488</left>
            <top>53</top>
            <right>503</right>
            <bottom>68</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Applications</name>
        <script>on mouseUpgo to card "applicationlauncher1"end mouseUp</script>
    </part>
    <part>
        <id>96</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>490</left>
            <top>96</top>
            <right>502</right>
            <bottom>111</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>About</name>
        <script>on mouseUpglobal mHomeVers,mHomeDate,mHomeRevput mHomeDate into mhdget cd fld "version" of cd 1if it is not empty thenput "Registered to"&&it into mhdput getString(1131,2) into regelse put getString(1131,1) into regget getString(1132,trunc(item 2 of mHomeRev/20))if getString(1132,4) is not in it then get it&&(item 2 of mHomeRev mod 20)paramText mHomeVers,mhd,reg,itget alert (3756)end mouseUp</script>
    </part>
    <part>
        <id>99</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>490</left>
            <top>67</top>
            <right>502</right>
            <bottom>82</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Safe</name>
        <script>on mouseUpgo card"Ft. Knox‚Ñ¢ Open"end mouseUp</script>
    </part>
    <part>
        <id>106</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>490</left>
            <top>113</top>
            <right>502</right>
            <bottom>125</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>:HyperCard Stacks:Home</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpanswer "Merry Christmas!" with ":)"end mouseUp</script>
    </part>
    <part>
        <id>104</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>488</left>
            <top>112</top>
            <right>503</right>
            <bottom>127</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Homme</name>
        <script></script>
    </part>
    <part>
        <id>107</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>488</left>
            <top>81</top>
            <right>503</right>
            <bottom>96</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Diagnostics</name>
        <script>on mouseUpgo cd "Diagnostics"end mouseUp</script>
    </part>
    <part>
        <id>110</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>488</left>
            <top>25</top>
            <right>506</right>
            <bottom>38</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>:HyperCard Stacks:Home</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUpgo firstend mouseUp</script>
    </part>
    <part>
        <id>111</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>197</left>
            <top>1</top>
            <right>317</right>
            <bottom>18</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>:HyperCard Stacks:Home</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Module Manager</name>
        <script>on mouseUpdoModule "About Module Manager™…"end mouseUpon doModule itumset the cursor to busyglobal MHpref,mHomeMod,MHmods,MHmodhandlerput "" into mmif itum is "About Module Manager™…" thenanswer "MegaHome™ Module Manager™ Access "&mHomeMod&return&"by Roger Plyer"&return&¬"©1991 Earth Systems. All Rights Reserved Throughout the Universe."else if itum is "" then --Ÿif there is not a menu  then create menu put "About Module Manager™…,-,Remove “” Menu,-,Modules:" into menu mmput MHmods after menu mmput"-,MMA Development:,Important Notice,Test Agreement,Redraw “” Menu,Disable ModEvents,Edit MMA Script" after menu mmset the textStyle of menuItem "Modules:" of menu  to underlinedisable menuItem "Modules:" of menu set the textStyle of menuItem "MMA Development:" of menu  to underlinedisable menuItem "MMA Development:" of menu set the textStyle of menuItem "Important Notice" of menu  to italicget line 16 of MHprefset the checkmark of menuItem "Disable ModEvents" of menu  to itput true into line 15 of MHprefsavePrefsexit doModuleelse if itum is "Edit MMA Script" thenedit script of bg btn "Module Manager" of cd 1exit to HyperCardelse if itum is "Remove “” Menu" or itum is "" thendelete menu mmput false into line 15 of MHprefsavePrefselse if itum is "Redraw “” Menu" thenlock screendoModule ""doModule ""else if itum is "Important Notice" or itum is "" thenparamText "Module Manager™"get alert (3762)if it is 2 thendoModule "Test Agreement"end ifelse if itum is "Test Agreement" then handleError "D1",0else if itum is "Disallow ModEvents" thenget not line 16 of MHprefput it into line 16 of MHprefsaveprefsset the checkmark of menuItem "Disallow ModEvents" of menu "" to itelse if itum is "Modules:" or itum is "MMA Development:" then handleError "D1",56else do MHmodHandlerend doModule</script>
    </part>
    <content>
        <layer>background</layer>
        <id>92</id>
        <text>Home Cards</text>
    </content>
    <content>
        <layer>background</layer>
        <id>2</id>
        <text>Mouse:0,0</text>
    </content>
    <content>
        <layer>background</layer>
        <id>1</id>
        <text>5:46 PM</text>
    </content>
    <name>Home</name>
    <script>on openBackgroundset the cursor to 4lock screenmakeHomeMenusdoADeselectshow menuBarend openBackgroundon resumeStackopenBackgroundpass resumeStackend resumeStackon suspendStackcloseBackgroundpass suspendStackend suspendStackon makeHomeMenuscreate menu "Manager"create menu "Prefs"put "Set UserName,-,UserLevel…,Text Arrows,Power Keys,Blind"¬&&"Typing,Message Flashbacks,Message Box Memory,Auto–Compacting,Auto-Compacting Threshold…"¬&",-,Script Text…,-,Double–Click Rate…,Drag Delay…,-,Screen Saver…,"¬&"Screen Saver Icon…,Bounce Sound" into menu "Prefs"end makeHomeMenuson closeBackgroundlock screenif there is a menu "Manager" then delete menu "Manager"if there is a menu "Prefs" then delete menu "Prefs"end closeBackgroundon doMenu itum,menuNameif menuName is not "Manager" and menuName is not "Prefs" then pass doMenuif menuName is "Manager" thenglobal MHselput the number of btns into xif itum is "Dragging" then toggleDragelse if itum is "Mouse Coordinates" then toggleCoordselse if itum is "Try Existing Icons" then --TRY ICONglobal MHprefput not (line 12 of MHpref) into line 12 of MHprefsavePrefselse if itum is "Open" then  --OPENgoSelCdput selBtnName() into theNameput selBtn() into wheresendIntercept "openMe",wheredelete char 1 to 13 of theNamedelete last char of theNameif "--path: " is in line 1 of the script of (where)thenput line 1 of the script of (where) into theNamedelete char 1 to 8 of theNameend ifdoADeselectgoto theNameexit doMenuelse if itum is "Rename…" then  --RENAMEgoSelCdput selBtnName() into oldNameput selBtn() into wheresendIntercept renameMe,wheredelete char 1 to 13 of oldNamedelete last char of oldNameask"New name for selected link:" with oldNameput it into ttif tt is empty then exit doMenuset the name of (where) to ttanswer "Change actual (Finder) name also?" with "Yes" or "No"if it is "Yes" thensendIntercept finderRenameMe,whereput the long name of stack (oldName) into oldNamedelete char 1 to 7 of oldNamedelete last char of oldNameput renameFile (oldName,tt) into erCif erC≠0 thenbeep 2answer"Couldn’t change actual name" with "Cancel"exit doMenuend ifput the script of (where) into kif "--path: " is in line 1 of kthenput "--path: "&pathName(oldName)&tt into line 1 of kset the script of (where) to kend ifend ifexit doMenuelse if itum is "Change Icon…" then  -- NEW ICONgoSelCdput selBtn() into wheresendIntercept iconMe,whereget chooseIcon("New icon for selected link:")if it is empty or it is 0 then exit doMenuset the icon of (where) to itexit doMenuelse if itum is "New Card" then  --NEW CDset the cursor to 4lock screenset the lockMessages to truego to last cd in this bgput fld "page" into PFsend "doMenu New Card" to HyperCardput PF+1 into fld "page"send openCard to this cdexit doMenuelse if itum is "Remove Card" then  --DELETE CDif item 2 of MHsel is the number of this cd then doADeselectbeep 2answer"Do you really want to delete this entire card?" with "OK" or¬"Cancel"if it is "Cancel" then exit doMenuset the cursor to 4lock screenset the lockMessages to truedoMenu"delete card"go previf fld "page" is 1then set the icon of bg btn "prev" to "√Grey Prev Arrow"else set the icon of bg btn "prev" to "Prev Arrow"if fld "page">the number of cds of this bgthen put the number of cds of this bg into fld "page"if fld "page" = the number of cds of this bgthen set the icon of bg btn "next" to "√Grey Next Arrow"else set the icon of bg btn "next" to "Next Arrow"else if itum is "Clean Up All" then  -- CLEAN UP ALLif fld "page" is 1 then set the rect of cd fld "axis" to 7,22,63,50doACleanUpexit doMenuelse if itum is "Clean Up Selection" thengoSelCddoACleanUp(the number of (selBtn()))exit doMenuelse if itum is "Place…" then --PLACEgoSelCdput selBtn() into wheresendIntercept placeMe,whereput the number of (where) into nWhereask "Place selected button at what position? (1-"&x&")"¬with nWhereif it is nWhere or it is empty then exit doMenuif it<1 or it>x thenbeepexit doMenuend ifset the cursor to 4lock screensetUserLevelFiveselect (where)if it<nWhere thenrepeat until the number of (where)=itdoMenu "Send Farther"end repeatelserepeat until the number of (where)=itdoMenu "Bring Closer"end repeatend ifchoose browse toolrestoreUserLeveldoACleanUp(it)unlock screenput "If the button is not visible, try doing a CLEAN UP ALL."get the mouseLocwait until the mouseLoc is not ithide msgexit doMenuelse if itum is "Deselect" then  --DESELECTdoADeselectexit doMenuelse if itum is "Add Stack…" then  --ADD A STACKput (the shiftKey is "down") into shKeyglobal MHprefanswer file "Choose a stack to add." of type "STAK"go to this cdput it into appFileif appFile is empty then exit doMenuset cursor to 4lock screensetUserLevelFiveput buttonName(appFile) into appNamedoMenu "New Button"put the id of btn (x+1) into appIDset name of btn id appID to appNameset icon of btn id appID to line 10 of MHprefif iconExists(line 12 of MHpref)then set icon of btn id appID to appNameset style of btn id appID to transparentif shKey is falsethen set the script of btn id appID to emptyelse set the script of btn id appID to "--path: "&appFileput pathName(appFile) into aCif aC&return is not in fld "paths" of cd "stacks" thenif (last char of (fld "paths" of cd "stacks")) is not return¬then put return after fld"paths" of cd "stacks"put aC&return after fld "paths" of cd "stacks"global stacksput fld "paths" of cd "stacks" into stacksend ifchoose browse tooldoACleanUp (x+1)restoreUserLevelupdMenusexit doMenuelse if itum is "Default Icon…" thenglobal MHprefget chooseIcon("Default icon for “Add a stack”:")if it is empty or it is 0 then exit doMenuput it into line 10 of MHprefsavePrefsexit doMenuelse if itum is "Remove Link" then  --REMOVE A STACKgoSelCdput selBtn() into wheresendIntercept removeMe,wherebeep 2answer"Do you really want to remove this link?" with "OK" or "Cancel"if it is "OK" thenlock screendoADeselectset the cursor to 4setUserLevelFiveselect (where)doMenu"Clear Button"choose browse toolrestoreUserLeveldoADeselectend ifexit doMenuend ifelse if menuName is "Prefs" thenglobal MHprefif itum is "Set UserName" thenglobal userNameask"Your UserName:" with userNameif it is not empty then put it into userNameput userName into line 6 of cd fld "Prefs" of cd 1exit doMenuelse if itum is "UserLevel…" thenget item (the userLevel) of "Browsing,Typing,Painting,Authoring,Scripting"paramText itget alert (3758)if it is 1 then exit doMenuset the userlevel to it-1put the userLevel into line 1 of cd fld"prefs" of cd 1else if itum is "Bounce Sound" then  --SOUNDput not (line 1 of MHpref) into line 1 of MHprefsavePrefselse if itum is "Text Arrows" then  --TEXT ARROWSset the textArrows to not the textArrowsput the textarrows into line 2 of cd fld"Prefs" of cd 1else if itum is "Power Keys" then  --POWER KEYSset the powerKeys to not the powerKeysput the powerkeys into line 3 of cd fld"Prefs" of cd 1else if itum is "Blind Typing" then  --BLIND TYPINGset the blindTyping to not the blindTypingput the blindTyping into line 4 of cd fld"Prefs" of cd 1else if itum is "Double–Click Rate…" then  --DOUBLE–CLICK SPEEDanswer "Choose your double–clicking speed:" with "Slow","Medium","Fast"if it is "Slow" then put 3 into line 5 of MHprefif it is "Medium" then put 2 into line 5 of MHprefif it is "Fast" then put 1 into line 5 of MHprefsavePrefsexit doMenuelse if itum is "Script Text…" then  -- SCRIPT TEXTseput ((the scriptTextFont)&","&(the scriptTextSize)) into line 5 of cd fld "prefs" of cd 1else if itum is "Drag Delay…" then  -- DRAG DELAYanswer "Choose a drag delay:" with "None" or "Long" or "Short"if it is "None" then put 0 into line 11 of MHprefif it is "Long" then put 2 into line 11 of MHprefif it is "Short" then put 1 into line 11 of MHprefsavePrefsexit doMenuelse if itum is "Screen Saver Icon…" then  --SCREEN SAVER ICONget chooseIcon("Icon (name/number) for screen saver:")if it is empty or it is 0 then exit doMenuput it into line 6 of MHprefsavePrefsexit doMenuelse if itum is "Auto–Compacting" then  --AUTO–COMPACTINGput not (line 7 of MHpref) into line 7 of MHprefsavePrefselse if itum is "Auto-Compacting Threshold…" then --THRESHOLDask "Automatically compact when the free space in the stack reaches what percent of the stack’s total size?" with line 13 of MHPrefif it is empty then exit doMenuif it is not a number or it<0 or it≥100 thenbeepexit doMenuend ifput it into line 13 of MHprefsavePrefsexit doMenuelse if itum is "Message Box Memory" then  --MESSAGE BOX RESTORINGif the cmdKey is "down" thenmsgCmd"clear"exit doMenuend ifput not (line 2 of MHpref) into line 2 of MHprefsavePrefselse if itum is "Screen Saver…" then  --SCREEN SAVERanswer "Choose a Screen Saver mode:" with "Off" or "“Boss Mode”" or "Normal"if it is "Off" then put 0 into line 8 of MHprefif it is "Normal" then put 1 into line 8 of MHprefif it is "“Boss Mode”" then put 2 into line 8 of MHprefsavePrefsexit doMenuelse if itum is "Message Flashbacks" then  --LAST COMMAND TYPEDput not (line 9 of MHpref) into line 9 of MHprefsavePrefsend ifend ifupdMenusend doMenuon updMenusglobal MHpref,maxBtnsif there is no menu "Manager" then exit updMenusset the cursor to 4set the checkMark of menuItem "Dragging" of menu "Manager" to line 4 of MHprefset the checkMark of menuItem "Mouse Coordinates" of menu "Manager" to line 3 of MHprefset the enabled of menuItem "Remove Card" of menu "Manager" to (fld "page" is not 1)set the enabled of menuItem "Add Stack…" of menu "Manager" to (the number of btns<maxBtns)set the checkMark of menuItem "Try Existing Icons" of menu "Manager" to line 12 of MHprefset the enabled of menuItem "Text Arrows" of menu "Prefs" to (the userLevel>1)set the enabled of menuItem "Power Keys" of menu "Prefs" to (the userLevel>2)set the enabled of menuItem "Blind Typing" of menu "Prefs" to (the userLevel>4)set the enabled of menuItem "Script Text…" of menu "Prefs" to (the userLevel>4)set the checkMark of menuItem "Text Arrows" of menu "Prefs" to (the textArrows)set the checkMark of menuItem "Power Keys" of menu "Prefs" to (the powerKeys)set the checkMark of menuItem "Blind Typing" of menu "Prefs" to (the blindTyping)set the checkMark of menuItem "Bounce Sound" of menu "Prefs" to line 1 of MHprefset the checkMark of menuItem "Message Flashbacks" of menu "Prefs" to line 9 of MHprefget line 7 of MHprefset the checkMark of menuItem "Auto–Compacting" of menu "Prefs" to itset the enabled of menuItem "Auto-Compacting Threshold…" of menu "Prefs" to itset the checkMark of menuItem "Message Box Memory" of menu "Prefs" to line 2 of MHprefend updMenuson openCardif fld "page" is 1then set the icon of bg btn "prev" to "√Grey Prev Arrow"else set the icon of bg btn "prev" to "Prev Arrow"if fld "page">the number of cds of this bgthen put the number of cds of this bg into fld "page"if fld "page" = the number of cds of this bgthen set the icon of bg btn "next" to "√Grey Next Arrow"else set the icon of bg btn "next" to "Next Arrow"updMenusend openCardon idleglobal MHprefput the short time into fld "Clock"if line 3 of MHpref is true and the shiftKey is up then put the mouseLoc into line 2 of fld "Coords"pass idleend idleon mouseUpif "Card Button" is not in the long name of the target then pass mouseUpset the cursor to 4doADeselectglobal MHselif trapDoubleClick(the rect of the target) is not true thensendIntercept selectMeput the id of the target into item 1 of MHselput the number of this cd into item 2 of MHselset the hilite of the target to truelongMgrelsesendIntercept openMeput the short name of the target into kif "--path: " is in line 1 of the script of the targetthenput line 1 of the script of the target into kdelete char 1 to 8 of kend ifgoto kend ifend mouseUpon mouseStillDownif "Card Button" is not in the long name of the target then pass mouseStillDowndragTargetend mouseStillDownon longMgrif there is no menu "Manager" then exit longMgrput "Dragging,Mouse Coordinates,-,Open,-,Rename…,Change Icon…,-,Add Stack…,Default Icon…,Try Existing Icons,Remove Link,-,New Card,Remove Card,-,Clean Up Selection,Clean Up All,Place…,-,Deselect"¬into menu "Manager"updMenusend longMgron shortMgrif there is no menu "Manager" then exit shortMgrput "Dragging,Mouse Coordinates,-,Add Stack…,Default Icon…,Try Existing Icons,-,New Card,Remove Card,-,Clean Up All"¬into menu "Manager"updMenusend shortMgron reset whatif what≠"menuBar" then pass resetset the cursor to 4lock screensend "reset menuBar" to HyperCard --Ÿglobal MHprefput false into line 15 of MHprefmakeMHMenusmakeHomeMenusglobal MHselif MHsel is not empty then longMgr else shortMgrend reset</script>
</background>